Notes

Disk info for 111a_Playboy.dsk:

File Name: 111a_Playboy/111a_Playboy.dsk
Disk Name: /WILD.WET/
Physical Size (bytes): 143360
Free Space (bytes): 2048
Used Space (bytes): 141312
Physical Size (KB): 140
Free Space (KB): 2
Used Space (KB): 138
Archive Order: DOS
Disk Format: ProDOS
Total Blocks: 280
Free Blocks: 4
Used Blocks: 276
Volume Access: Destroy Read Rename Write
Block Number of Bitmap: 6
Creation Date: 08/06/1987
File Entries Per Block: 13
File Entry Length (bytes): 39
Active Files in Root Directory: 21
Minimum ProDOS Version Required: 0
Volume Created By ProDOS Version: 0
Volume Name: WILD.WET

Disk directory for 111a_Playboy.dsk:

111a_Playboy/111a_Playboy.dsk /WILD.WET/
* PRODOS SYS 032 01/31/1987 08/06/1987 15,485
BASIC.SYSTEM SYS 021 02/11/1985 08/06/1987 10,240 A=$2000
STARTUP BAS 001 07/14/1987 08/06/1987 98 A=$0801
DRIVER BIN 006 05/06/1987 08/06/1987 2,077 A=$9000
PAC.PIC1 BIN 015 08/06/1987 08/06/1987 6,801 A=$4000
PAC.PIC1.AUX BIN 015 08/06/1987 08/06/1987 6,797 A=$4000
PAC.PIC2 BIN 008 08/06/1987 08/06/1987 3,553 A=$4000
PAC.PIC2.AUX BIN 008 08/06/1987 08/06/1987 3,556 A=$4000
PAC.PIC3 BIN 015 08/06/1987 08/06/1987 6,728 A=$4000
PAC.PIC3.AUX BIN 015 08/06/1987 08/06/1987 6,715 A=$4000
PAC.PIC4 BIN 015 08/06/1987 08/06/1987 7,063 A=$4000
PAC.PIC4.AUX BIN 015 08/06/1987 08/06/1987 7,050 A=$4000
PAC.PIC5 BIN 012 08/06/1987 08/06/1987 5,392 A=$4000
PAC.PIC5.AUX BIN 012 08/06/1987 08/06/1987 5,388 A=$4000
PAC.PIC6 BIN 011 08/06/1987 08/06/1987 4,722 A=$4000
PAC.PIC6.AUX BIN 011 08/06/1987 08/06/1987 4,750 A=$4000
PAC.PIC7 BIN 013 08/06/1987 08/06/1987 5,966 A=$4000
PAC.PIC7.AUX BIN 013 08/06/1987 08/06/1987 6,027 A=$4000
PAC.PIC8 BIN 014 08/06/1987 08/06/1987 6,223 A=$4000
PAC.PIC8.AUX BIN 014 08/06/1987 08/06/1987 6,185 A=$4000
STARTUP2 BAS 003 994 A=$0801
ProDOS format; 2,048 bytes free; 141,312 bytes used.

Text found in 111a_Playboy.dsk/STARTUP.bas:

10 IF PEEK( -16384) >127 THEN GET A$
20 IF A$ = "" THEN GOTO 100
30 PR# 6
40 PRINT CHR$(4)"RUN STARTUP2"
100 PRINT CHR$(4)"RUN STARTUP2"

Text found in 111a_Playboy.dsk/STARTUP2.bas:

5 HIMEM: 32768
10 D$ = CHR$(4):F$ = "DRIVER": IF PEEK( -1101) < >6 THEN PRINT : PRINT "Requires Extended //e or //c to run.": END
12 PRINT D$"PR#3": PRINT : PRINT : PRINT
20 TEXT : HOME : GOSUB 100
21 PRINT D$"PREFIX/"
22 PRINT D$"BLOADDRIVER"
25 FOR X = 1 TO 8
30 PRINT D$"BLOADPAC.PIC"X".AUX,A$4000": CALL 36876: CALL 36891
35 PRINT D$"BLOADPAC.PIC"X",A$4000": CALL 36876
37 HOME
40 Z = PEEK( -16297) + PEEK( -16300) - PEEK( -16302) + PEEK( -16304) - PEEK(49246)
55 IF PEEK(49249) <128 AND U <300 THEN U = U +1: GOTO 55
60 U = 0: TEXT : PRINT : HOME : NEXT : GOTO 25
100 INVERSE : PRINT SPC( 78)
105 FOR X = 1 TO 20: VTAB X: PRINT " ";: HTAB 79: PRINT " ": NEXT : NORMAL
110 INVERSE : PRINT SPC( 79): NORMAL : POKE 34,3: POKE 32,3: POKE 33,73: POKE 35,18: HOME
120 PRINT " Playboy's Wet & Wild Women"
125 PRINT : PRINT " Hello all. Welcome to a Europa BBS special production. This is": PRINT "a special summer issue digitized from Playboy's Wet & Wild Women.": PRINT "None of these pictures are especially rude so sit back and enjoy": PRINT "the summer's view."
130 VTAB 13: PRINT SPC( 50);"- TS"
135 VTAB 16: PRINT " [> Press any key to begin <]"
140 POKE -16368,0
145 VTAB 16: HTAB 24: PRINT "/\";: HTAB 50: PRINT "/"
150 IF PEEK(49152) >127 THEN 170
155 VTAB 16: HTAB 24: PRINT "/";: HTAB 50: PRINT "/\"
160 IF PEEK(49152) <128 THEN 145
170 KEY = PEEK(49152): POKE -16368,0
175 RETURN